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LAP Is a LISP TEXPR (or I5UBS when compiled) which Is executed 
primarily for its side effect — namely assembling a symbolic llstlrp 
Into core as a aachine laryua^e subroutine. As such. It Is about the 
cost convlent and rapid way for a LISP user to add machine latvuare 
primitives to the LISP systen, especially If the functions in Question 
arc in a developmental sta^e and are reasonably saall (e.f . 1-500 
instructions). Also, the LISP compiler currently ffives its result as a 
file of LAP code t which may then be loaded into core ty UP, 

Virtually any function definition, whether hy DEFPW, UBEL, or 
LAP, Is an extension of LISP's primitives; and as In any actual 
programming lanfuafe, the side-effects and global Interactions are often 
of primary importance. Because of this, and because of the inherently 
broader ran^e of machine instructions and data formats, a function quite 
easily described and written In PDP-6 machine lanpuare cay accomplish 
what Is only dost painfully and artificially written In 11SP. One must, 
then, consider the total amount of code In each lanrua^e to accomplish a 
flren task, the auount of coanentary necessary to clarify the Intent of 
the task plven the program (In this sense, LISP code rates very hl^h -*■ 
a major benefit of the confines of lisp is that a rood profran serves as 
its own comment, and usually needs rt& further elucidation), and other 
considerations of programming convlence, 

experience has shown that many such subroutines nay be assembled 
by a small system, i.e. one such as the current UP, without conditional 
assembly, macro, or sophisticated literal feneration features. These 
latter three features are the mjor differences in lanrua^e between LAP 
and MIDAS; the ma.Jor operational differences are (i) UP Is one-pass and 
HILAS Is two, (2) UP uses the LISP READ function while HlMS Is more 
efficient, and (?) LAP assenbles directly Into the binary prorran space 
of the LISP system using It vhlle MICAS files Its assenbly on a 
peripheral device (which most then be loaded ty STINK or the ITS version 
of DDT). THis one must consider the scope of Ms task in relation to 
the laryua^e desired and the operational ease preferred. 

Unfortunately neither LAP nor the systec reported in A.I. memo 
Ito. 127 solves the problem of loading and ronnlry arbitrary binary 
prorrams Jointly with LISP. Something like a rvntlce primitive STISK is 
needed for LISP, and such may have to wait for further development in 
the multiprogramming capabilities of the PDP-6 systems. 

It is assuned that the user of PDP-6 UP is familiar with A. I. 
Wsooranda *s. 116A and 144, which outline the use of the MAC PDP-6 
LISP, 
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ream? or up usags 



A call to UP is eren a little more non-standard than Indicated 
In the Introduction In that not all the arguments are included In the 
S-expreBsion which commences assembly -- UP repeatedly calls REAP, 
cperatlnp on the S-expreslons read-in {from the current Input device and 
file), until a *!IL 1b encounterd, at vhlch time assembly Is terminated. 
Only after successful termination of assembly Is BPOHG updated and the 
correct fla? (SU3H, rSUBR or ISUBH) inserted on the property list of the 
atoms which name the newly assembled functions. Thus a call to UP 
would look like the sequence 

(UP FDO SUBJ?) 
(OEJSYH A 1) 
(KLRZ A, 0(A)) 
{POP J P) 
KZL 

instead of the following written in a hypothetical style after 7090 UP 

(UP {(F00 S0BH2) 
(HIBZ A. 0(A)) 
(POP J P)J 
((HLHZ . 554 27.) 
(POP J , 2S527.) 
(A . 1) 
(P . 14))) 

The most serious drawback to the latter style Is the strain placed on 
free storage, since the entire expression would hate to be in core 
before evaluation could be^in. 

Be nee evaluation of (UP name Indicator) or (UP name Indicator 
address update) begins a LAP assembly for a function vith name "nane" of 
type "Indicator" (such as SUES, I5UBR, or ISUBR) and vith entry point 
the first location assembled Into; If the second form is used, assembly 
begins in the core location "address" instead of BPOHG. Ordinarily at 
assembly termination, BPOHG is set to tbe address follow inp the last one 
assembled into to UP, tut if "update" is SIL f EPOHG is undisturbed. 

UP acts on the quantities it reads as follows: 

QOACTIW ACTIOS 



ML 



Terminate assembly and return. Uteral generated 
constants are assembled into core , syntol 
definitions fron DE?ST« are flushed, and worthless 
atoms are removed fron the obllsl* A common error 
is to forget that carriage return and E-O-Fare not 
atom breaV: characters; Hit should be followed by a 
space. 
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atom 



(DSKYH aton sexp 



(ENTRY nane2) 



Assign "aton" an assembly syntol value eoual to the 
address of the current asseably location; no 
additional assenbly takes place. Itaus one uses 
atoms for symbolic location ta^s and under certain 
conditions these nattcs are entered in DDT's symbol 
table (see below). 
, . , atom sexp ) 

Assign *atoa M an assembly symbol value equal to 
(EYAL sexp ); no additional asembly takes place, and 
these naaes are not entered into DDT's symbol table. 



Sets up 
the call 
assembly 

(C0HM2OT list-fraraent) 

H? a neat 
the obllst 
there amst 
names for 
values of a 

(EVAL sexp , . . sexp ) 



M nane2" as a function of type Indicated In 
with enty point the current 
further assembly takes place. 



to LAP and 
location; no 



technique, no unnecessary atoms remain on 
after assembly; however, during assembly , 
be enough full word space to hold print 
all the atoms and to hold tlie numerical 
few LISP numbers. 



(SYHBOIS t-or-nil) 



x) 



Th* expressions *sexp " to "sexp " are evaluated, in 
order left to ri^ht, but otherwise no assembly takes 
place. General confutations and side effects say 
take place here, Uit caveat emptor cannot be too 
stronply intoned. 

RTL turns off and non-KlL turns on the UP feature 
which lasses alon* symbolic location names to the 
Job symbol table; currently all symbols so entered 
are treated as Motel* tut at some time in the 
future this may 1*- modified to permit flexible 
duplication of symtcls In seteral programs. If the 
SYMBOLS pseudo-op appears anywhere In an assembly, 
then the nanes of functions thus defined will be 
transnitted to DDT- KITS VtLLi Although LISP atoms 
may be composed from upwards of 8D characters, those 
used as ta^s which are entered in the symbol table 
should Include only upper-case letters and dibits, 
and only the first six characters of the atom's 
FKANS are relevant to this feature. 



llst-frafjnent) 



x (which is not amor* D2JSYH, E>rTRY, COMMENT, EYAL, 
or STM301S) is evaluated Iff IAPEVAL and the 
numerical result stored in the current assembly 
location, which is then advanced to one, R>r the 
neanlnp: of LAFEVAL, see the next section on assembly 
constituents, "list-fr&fseit" is ignored and nay 
serve as commentary (see note above for COMMENT). 
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(xy) 

(x J ; list- fragment) 

Same as immediately above, tut (LSH (LAPEVALy) 23.) 

is added into the stored result. 
(x y z) 
(x y z ; list fragment) 

Same as Immediately above, tut (BOOLE 1 (LAPEVAL z) 
■rrrr/7) is added into the stored result. *brward 
reference symbolB nay appear only in the z field: 
that is, if a symbol is used before it is defined, 
it must be used only in the address part of the 
instruction. 

U y z w) 

(»yi»i list-fragment) 

Same as immediately above, tut the numerical value 

of (LAFSVAtw), treated as a 36-Mt quantity, is 

swapped left-half for rUht and then added into the 

stored result. 

LAP initially checks whether or not the atom % is a member of the list 

formlry the assembly word, and If so sets the indirect bit (bit IB) and 

deletes the from the indicated asseiblyj thus an " does not count as 

one of x, y, z, or w. 

a l .tru? ie * notl ? es lhat lhere ls a Btron|r slnllarity between LAP format 
and JIMS fornet, an essential difference being that LAP processes 
assembly ouantlties "in order" left-to-rifht, to determine which is the 
AC field, which the address field, and which the index field. One must 
remember that the LISP read routine Imposes a certain dissimilarity in 
text for the two assemblers, since "space", "comma", "left piren", and 
ripnt wren are the only break characters for atom names, (fence 
sj*ces are necessary on both sides of a semi-colon or at-slfn when they 
are used as described above, and the AC field may not be ommitted In 
instructions like (JUST ADDRESS). We index field need not be 
enclosed in parentheses as In M13AS, but in feneral there is no harm in 
doliy: so (see "anyother list" on pafe 7). 
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fcmally, after terminating assenbly, LAP returns a list 
containing the current value of BPORG, and the names of the subroutines 
.lust assembled (there may be nore than one entry for the routine 
assembled, the principle entry is declared in the call to LAP and others 
may be declared by means of the pseudo-operation EtfTRT) [f after 
SSfiES' 6 ° Be , ref " , enced symbols remain undefined, the message "USDi? 
SYX93LS", followed by the offending atoms, will be printed out if 
there were any multiple-defined symbols, "AMBIG SYMBOLS" ls printed 
along with a list of the offenders. One particular disaster caught by 
UP is indicated by the message "BIKAKT PROGRAM SPACE EXHAUSTER. 

Since LAP uses so many free variables (and for several other 
reasons), one should allow a call to LAP to exit by itself rather than 
stopping it with ~G or some other ruse. 
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fech of the parts of an assembly 
evaluated ty LAPEVAL, In the context of 
quantities whose CAB Is amon* ElfSYH, E7AL, 
termed pseudo-ops in ttet they do not rite rise 



merely jive directions to the assenbler. g 
Iff UP and are not considered to be assembly 



word (x, j, z, or w) is 

the assembly. The assenbly 

COHMEtfT, and SYMBOIS, may be 

to an assembly word hit 



and ; are treated 
constituents* 



special!}* 



asacm 

number 

NIL 

* 

atom 
(QUOTE sexp) 

(SPECIAL atom) 



(fUNCTIOHatom) 



(% x y z w) 



TALU5 



axed-point nuobers always 
floating- point nunbers in 
produce Jfendora Results. 



evaluate to 
an address 



themselves, 
field may 



Same as (QUOTE HIL). 



Tfce address of the 
as . in KIMS. 



current assembly location. Same 



&cept for ®, j, *, and MIL, all atons evaluate to 
their assembly symbol value; i.e. (GET (QUOTE atoffi) 
(QUOTE STKJJ. 

(KAKHOM (QUOTE sexp) {QUOTE FIXItUM)). Jbr example, 
(HOVEI 1, (QUOTE (SHALL LIST))) assembles into an 
instruction which aoves a pointer to the list 
(SHALL LIST) into accumulator 1. 

Provides a pointer to the value cell of "atoft". 
Tlius (MOTE l t (SPECIAL TOO)) moves the value of TOO 
into 1 instead of a pointer to TOO* as would happen 
if (QUOTE TOO) were used. In addition 

(M07Z1, (SPECIAL BAH)) 

(M07SM 1, (SPECIAL KX») 
accomplishes in a SUBR what (SE1Q (DO BAR) does in 
an HHL 



ibsentially the 
emphasize that 
(see section on 



same as (QUOTE atom), 
"aton" is used as a 
UUO instructions). 



tut is used to 
function name 



literal generation feature, like hy, z (w)l in 
MIDAS. Assembles (x y z w) as described above and 
provides the address thereof. Similarly, the fores 
(% x), (% x y), (? x y z) cay be used. A literal 
constant is restricted to the z-field (or address 
field) of a LAP insturction, hut nay appear nested 
to any finite depth. Jbr exanple, (TOTE 1, (* 1.0)) 
oovee a machine floating point nunber into ] 
whereas (MQTEI 1, (QUOTE 1.0)) moves a LISP nunter. 



anyotherlist 

In this case UPBML merely sums the UPETAL of 
each member of the list. Ibr exarorle, (just (* 
rSU', « u lwJ«t t0 JRET ,-8 In KIMS, and 
HQV? i'-Ia! assembles lnt0 tbe fi6Be l "nr as 

PDP-6 Alffl fflffi aSfflgflHfla 

.11 P nB.? C ? US t ° f .! he current inefficiency of the UP symbol table, not 

SL3£ t SSS M * l !tS p " deflned - *»* Mly tho« H»t«d In the 

ffdlrW **M^ in iY 1 !" 1 S U t0 "*• tbe PBeud -° p DEKYM »> »* used 
-L fJ W 5S£& B L Instructions as well as other local symbols vhich 

ftTSSLf : BSLtt^ 1 penBnent deflnitionB »* * - d « «»■ oft« 

(OPS atoo sexp . . . atoo sexp ) 

It'll * JS *, 110 t» P R ™i. tat theae ^"nitlons are not flushed 
StaffhMiSSi ^JS (&ee di9Cues ion of R2HUP on page Sender 
n -Sl? M1 J ty h * rDflnent definitions may be temporarily reset by 
DEFSYM, and upon terainatlon UP will restore the previous values 
«. «.a IF* /trap) instructions are predefined In UP, which 

provide the means for UP assembled code to call other LISP functions 
The for. for calllne BXPS's, SUSP's, FEXPR's, and fSUBR*s Is unctions. 

(CAU n (HlHCTIOHatom)} 
where n la 17 If "atoi" Is a RUBH or F3XPR and the argu»ent is in 

S^SS^SS 1: " is , K1 " fll t0 the «gp»* of arguments when calling a SUBR 
«™«? *» not be neater than five. The arguments should be 
placed successively in accunulators l to 5. To call an LSUBR, place a 
pointer to the return address on the PDL, followed by the arguments to 
the function, last on top; place In accumulator C. the negative of the 
nuoDer of arguments. Then do 

(JCALL 16 (TOKCTIOSatom)). 

tot only bib t a UP coded routine obey these conventions, hit 
B£.J}£?*J*3"J£ t0 Jl* *ts "guaents, In each case, as described. 
Accumulators 1 through 7 are the only ones available for use within a 
subroutine, which is expected to return a value in accumulator 1: 
however accumulator 14 (P) is still used as the system rush down list 

rfhen a UUO is executed, the system will call the interpreter "if 
"atom" does not have a SUBH or JSUBR flag on Its property list- If it 

Sn'rt ^T'nJ?*?'* 1 ?!! wU1 "?"£• 6 "■" (ln thfi case of CA ' LL and 

CALLf) or a JSST In the case of JCALL and JCALLF) to the appropriate 

code. lr. favorable conditions, the UUO instruction will actually be 

changed, in core, to a PUSBJ or JPST, but in no cast is CALL? or JCALLP 

ever changed. The T forms are used to insure that the interpreter will 

iLSL il Undep conilt ion8 such as calling a HJNAflG. Evaluating 

w ??t. T V!? hlblts the ln6 truction-modify feature so that traceing may 
be utiliied during progran checkout. 



APPENDIX 

SYMBOLS PBE-DEFIKFD Ig LJP 

(0 Have type Instructions 

HOVE HOVEI HOVIH MOTHl EXCH HOVSS 

(11) Air-word 

BLRZ HHftZ HRSH ffRLM HHHZS HLLZS HBL2I 

(11) Conditional branch 

JRST JUMPS JUHPJJ JSP 

SKIPS SK1PE SQJS SOJS AOSL 

CAIE CAIN CAILE CAME CAH1! CAMLE 

(It) Arithmetic 

ADD SOB ADDB ADDI SUBI IHOLI 

(v) Stack 

PUSH PUSH J POP POP J 

(*1> UUO 

CALL JCALl CALLF JCALLP »CALL 

(vii) Miscellaneous 

DP8 LD3 CLEARM CLSARB SSTOM 
TDZA TLO TRUE AHDI 

(▼111) Other symbol definitions 

P I HUM SPECBIMD SPECSTH KUHTAL FLOAT FIXJA TIE 



AVAILA9ILITT 

A symbolic version of UP la found on the tape called LISP SYS 
as file EHGLSH UP, and will sometimes reside on the COMMON dish under 

the same nane. UP actually bootstraps some critical portions of Itself 
as SU3Hs and requires about 25C (octal) cells of binary program space, 

UP occupies a lar^e amount of storage, and operates more quickly when 

£££!« , « Plent ? of full " word 8 » c " available. a top-level function 
HIMLAP is provided to reclaim some of the storape consuued by UP and 
Its peculiar atoms - (REMAP) will remove the EXPR's and PEXPH's 
(except for OPS and RIMUP) but leave permanent symbol definitions 
intact; (REHUP T) aEMOB s about 100 atoms peculiar to UP and all atoms 
with a SYM property; (REMAP Nil) merely removes the SYM property from 
any atom which has one. 

A compiled version of UP exists on the LISP STS tape as file 
C UP, which runs about twice as fast as the symbolic version {nuch tine 



arJl Jlu D *? d "" * the " me ■"**■ of «ipilid code is oot so 
law). 1Mb version requires about 1350 (octal) cells of blmn 
program twee, and perform (HSHUP) after tootstrapinf in the *rttt« 

There is some possibility that UP may- he included with a-mtk.* 
still unce^in "^ Und " PI *°* raB contro1 ' ** «S« 1b 



s aiga 



(URKAD C IAP COM) 
COM 

loadimV up 

BSGItf' 300TSTRAP 
3V PHASE/ 2 
FINISHED 

(OHEAD UP XHPL DIB) 

D3 

*0 

UVDSF STHB3IS 

(RLIWEW) 
AM31G STNB01S 
(HHW) 

*7SP 

(66372 DPADD DISCHTRlJ 



A****** »« u !« FT f , or lisiir #. Although we hare inadvertently 
££SLR!Li U S 1S ^ lready predef,ned * "P. there is nothing to £ 
SLTSmESI ?m" I'JE"** * BM « sriDboU " «"» indicates that 
1U 1 t. ll0 ! ( 0f ? H Was reset durlr * esse » bl * a " d restored to 

if 155 l V* 1 Sl tJ e * ft er termination. In this case no change at all 
was effected. The "under symbols- message helps us to find an error -- 
the incorrect speUinr of BLFVDS* on line 10. 

.«.* -«! "I!!.!, WP V 8 E rlntea ^ DDTupon its return to LISP Just 
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(LAP D1SCNTRL 8UBR ) 
(SYHBOLS T) 

IDEFSYM HRLH 506-33 A08E 382-33 
r* A 1 8 2) 

(JUHPE A. DI8T3P) 

(HOVEI B. (QUOTE SUBR > ) 

(CALL 2 (FUNCTION OET)l 

(MOVE A. -UAH 

(HRRM A. I) 

(CLEARM HLRH08H I MEANS STORE NEXT IN LEFT) 

(HOVEI A. 30117 I DI3PLAV PARAMETER MORDl 

(JR8T 6TR) 
DISTOP (PUSH J P. BTR) 

<MOVEI A* 3000 / STOP CHARACTER) 
XIT (JRST STR) 

I (0) 

HLFkDBW (0) 
(SYMBOLS NIL) 
(ENTRV DPADD) 

(sue i a. l) 

(ANDI A* 1777) 

(JUHPE B. CKX I MEANS X QUANTITY) 

(ADDI A, 220000) 

(8KIPN HLFHDSH I NONZERO MEANS Y) 

(JRST 8KP1) 
STR (A06E HLFHDSN) 

(JRST (• 4)) 

(MRRH * A, I i 

(A08E I) 
"S (POP J P) 

(HRLM A* • I I POSITION OF • IN LIST DOESNT MATTER) 

ISETOM HLFWD8H) 

(POPJ P) 
CKX (ADDI A* 22000) 

(SKIPN HLFH0SH1 

(JRST STR) 

I AOSE I I 
SKP1 (AOSE HLFMDSN1 

(8ET0H Q HLFHDSM) 

(JRST STR) 
NIL 



